/*
 * Copyright (c) 2018-2023 北京华恒盛世科技有限公司
 * QUICKPOOL is licensed under Mulan PSL v2.
 * You can use this software according to the terms and conditions of the Mulan PSL v2.
 * You may obtain a copy of Mulan PSL v2 at:
 *     http://license.coscl.org.cn/MulanPSL2
 * THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OF ANY KIND,
 * EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO NON-INFRINGEMENT,
 * MERCHANTABILITY OR FIT FOR A PARTICULAR PURPOSE.
 * See the Mulan PSL v2 for more details.
*/

#include "xdrbase.h"
#include "channel.h"
#include "api.h"

/**
 * @brief       API: control node in the cluster.
 *
 * @param[in]   ctrlreq      #1: control node request key values
 * @param[in]   master       #2: master(port and name) to be called
 *
 * @retval      0            #1: succeed
 * @retval      -1           #2: failed
 *
 */
int
client_control_host(struct request *ctrlreq, struct poolMaster *master)
{
    if (NULL == ctrlreq || 0 == ctrlreq->number) {
        log_message(ERR, NOCLASS, "%s: Must specify node control request.", __func__);
	return -1;
    }

    // check the first key to avoid unknown request from client.
    if (REQUEST_KEY_REQUEST_CODE != ctrlreq->keyvalues[0].key) {
        log_message(ERR, NOCLASS, "%s: First key must be request code for node control request.",
                    __func__);
	return -1;
    }

    int reqCode = atoi(ctrlreq->keyvalues[0].value);
    switch (reqCode) {
    case HOST_OPEN:
    case HOST_CLOSE:
    case HOST_REBOOT:
    case HOST_SHUTDOWN:
        break;
    default:
        log_message(ERR, NOCLASS, "%s: Specified an unknown operation code <%d>.",
                    __func__, reqCode);
        return -1;
    }

    struct auth auth;
    gf_set_auth(&auth, commandParams[AUTH_KIND].string_value);

    unsigned int size; // for calculating the size of the request.
    size = gf_xdrsize_request(ctrlreq);
    size += gf_xdrsize_auth(&auth);
    size += HEADER_LEN;

    char *request;
    request = (char *)calloc(size, sizeof(char));
    if (NULL == request) {

        log_message(ERR, NOCLASS, STR_FUNC_D_FAIL_M, __func__, "calloc", size);
        gf_xdr_free(gf_xdr_auth, (void *)&auth);
        quickpool_errno = ERROR_MEMORY;
	return -1;
    }

    struct header tohdr, outhdr;
    gf_init_header(&tohdr);
    switch (reqCode) {
    case HOST_REBOOT:
        tohdr.reqcode = CMD_JM_REBOOT;
        break;
    case HOST_SHUTDOWN:
        tohdr.reqcode = CMD_JM_SHUTDOWN;
        break;
    default:
        tohdr.reqcode = BATCH_HOST_CTRL;
        break;
    }

    XDR xdrs;
    xdrmem_create(&xdrs, request, size, XDR_ENCODE);

    if (!gf_xdr_message(&xdrs, ctrlreq, &tohdr, &auth, gf_xdr_request, NULL)) {

        // fail to encode request.
        log_message(ERR, NOCLASS, STR_FUNC_FAIL, __func__, "gf_xdr_message");
        xdr_destroy(&xdrs);
        FREEUP(request);
        gf_xdr_free(gf_xdr_auth, (void *)&auth);
        quickpool_errno = ERROR_XDR;

        return -1;
    }

    char *masterList;
    unsigned int port;
    unsigned int connTimeout;
    unsigned int recvTimeout;    
    if (NULL != master) { // client set master, let's call it directly.
        masterList = master->master;
        port = master->port;
        connTimeout = master->conntimeout;
        recvTimeout = master->recvtimeout;
    } else if (HOST_REBOOT == reqCode || HOST_SHUTDOWN == reqCode) {
        masterList = ctrlreq->keyvalues[1].value; // call specific JM to do restart/shutdown
        port = g_jm_port;
        connTimeout = g_conntimeout;
        recvTimeout = g_recvtimeout;        
    } else {   
        masterList = qp_getmastername(); // call JM to get the maste name.
        if (NULL == masterList) {
            // JM do not know who is master, let's try g_masterlist.
            masterList = g_masterlist;
        }
        port = g_js_port;
        connTimeout = g_conntimeout;
        recvTimeout = g_recvtimeout;
    }

    char *reply;
    int cc, fd;
    if (HOST_REBOOT == reqCode || HOST_SHUTDOWN == reqCode) { // call JM
        fd = -1;
        cc = gf_callslave(masterList, port, connTimeout, recvTimeout, 
                          XDR_GETPOS(&xdrs), request, &outhdr, &reply, &fd);
    } else { // call JS
      cc = gf_callmaster(masterList, port, connTimeout, recvTimeout, g_connretries,
                         XDR_GETPOS(&xdrs), request, &outhdr, &reply, &fd);
    }

    if (0 < fd) {
        gf_chan_close(fd);
    }
    xdr_destroy(&xdrs);
    FREEUP(request);
    gf_xdr_free(gf_xdr_auth, (void *)&auth);

    if (0 > cc) {

        FREEUP(reply);
        log_message(ERR, NOCLASS, STR_FUNC_S_FAIL, __func__,
                    "gf_callslave/gf_callmaster", masterList);
        return -1;
    }

    quickpool_errno = outhdr.reqcode;
    if (quickpool_errno != 0) {

        // JM/JS replied error message, decode it and print out.
        xdrmem_create(&xdrs, reply, outhdr.length, XDR_DECODE);

        char *strErrMsg = NULL;
        if (!gf_xdr_string(&xdrs, &strErrMsg, &outhdr, NULL)) {

            log_message(ERR, NOCLASS, STR_FUNC_FAIL, __func__, "gf_xdr_string");
            xdr_destroy(&xdrs);
            FREEUP(reply);
            return -1;
        }

        if (NULL != strErrMsg) {
            log_message(ERR, NOCLASS, "%s", strErrMsg);
        } else {
            log_message(ERR, NOCLASS, "%s: unknown error occurs.", __func__);
        }

        FREEUP(strErrMsg);
        xdr_destroy(&xdrs);
        FREEUP(reply);

        return -1;
    }

    FREEUP(reply);

    return 0;
} // end function client_control_host
